home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / archivers / lharchie / install < prev    next >
Text File  |  1996-09-14  |  7KB  |  253 lines
  1. ;$VER: LHArchie Install/Uninstall Script V1.82 (14.09.1996)
  2. ;Written by Matthias Grosser
  3. ;Copyright ©1996 by Matthias Grosser
  4. ;Not for commercial use - All rights reserved.
  5.  
  6. (complete 0)
  7. (set @appname "LHArchie V2.64")
  8. (set #currentVer "2.64")
  9.  
  10. (message "\n\n LHArchie Version "#currentVer"\n"
  11.          "Installation & Deinstallation V1.82\n\n"
  12.          "Im folgenden wird LHArchie auf Ihrem Amiga installiert "
  13.          "oder von der Festplatte entfernt.\n\n"
  14.          "©1995-96 by Matthias Grosser\n"
  15.          "Alle Rechte vorbehalten.")
  16.  
  17. (set #Source
  18. (cat ""
  19. ))
  20.  
  21. (set #choosemode
  22. (cat "\n\nBitte wählen Sie, ob LHArchie nun auf Ihrem "
  23.      "Amiga installiert werden oder von der Festplatte "
  24.      "entfernt werden soll."
  25. ))
  26.  
  27. (set #choosemode-help
  28. (cat "Hier können Sie bestimmen, was das Installationsprogramm tun "
  29.      "soll. Wenn Sie `Installieren` wählen, wird LHArchie "
  30.      "auf Ihrem Amiga installiert. `Deinstallieren` ist natürlich "
  31.      "nur möglich, wenn Sie LHArchie schon einmal installiert haben "
  32.      "und das Programm nun entfernen möchten."
  33. ))
  34.  
  35. (set #WorkingMsg
  36. (cat "\n\nBitte warten...  Installation wird durchgeführt"
  37. ))
  38.  
  39. (set #choosemode
  40.  (askbool
  41.   (prompt #choosemode)
  42.   (help #choosemode-help)
  43.   (choices "Installieren" "Deinstallieren")
  44.   (default 1)
  45.  )
  46. )
  47.  
  48.  
  49. ; install now
  50.  
  51. (if (= #choosemode 1)
  52.  (
  53.   (set #DestDrawer
  54.    (askdir
  55.     (prompt "Bitte wählen Sie das Verzeichnis, in dem "
  56.             "die LHArchie-Schublade angelegt werden soll.")
  57.     (help @askdir-help)
  58.     (default "SYS:Tools")
  59.    )
  60.   )
  61.  
  62.   (set #directory #DestDrawer)
  63.  
  64.   (set #drawername "LHArchie")
  65.  
  66.   (if (= @user-level 2)
  67.    (set #drawername
  68.     (askstring
  69.      (prompt "Wie soll die Schublade benannt werden?")
  70.      (help "Geben Sie einen Namen für die Zielschublade ein.")
  71.      (default "LHArchie")
  72.     )
  73.    )
  74.   )
  75.  
  76.   (set @default-dest (tackon #DestDrawer #drawername))
  77.   (set #defdestdrawericon (cat @default-dest ".info"))
  78.   (set #catdrawer (tackon @default-dest "catalogs"))
  79.   (set #progicon (tackon @default-dest "LHArchie.info"))
  80.   (set #helpicon (tackon @default-dest "LHArchie.guide.info"))
  81.   (set #readmeicon (tackon @default-dest "LHArchie.readme.info"))
  82.   (set #deutsch (tackon #catdrawer "deutsch"))
  83.   (set #français (tackon #catdrawer "français"))
  84.   (set #español (tackon #catdrawer "español"))
  85.  
  86.   (working #WorkingMsg)
  87.  
  88.   (makedir @default-dest (infos))
  89.   (makedir #catdrawer)
  90.   (makedir #deutsch)
  91.   (makedir #français)
  92.   (makedir #español)
  93.  
  94.   (copyfiles
  95.     (source #Source)
  96.     (dest @default-dest)
  97.     (pattern "LHArchie")
  98.     (infos)
  99.   )
  100.  
  101.   (complete 40)
  102.  
  103.   (copyfiles
  104.     (source "LHArchie.guide")
  105.     (dest @default-dest)
  106.     (infos)
  107.   )
  108.  
  109.   (complete 60)
  110.  
  111.   (copyfiles
  112.     (source "LHArchie.s")
  113.     (dest @default-dest)
  114.   )
  115.  
  116.   (complete 80)
  117.  
  118.   (copyfiles
  119.     (source "LHArchie.readme")
  120.     (dest @default-dest)
  121.     (infos)
  122.   )
  123.  
  124.   (complete 85)
  125.  
  126.   (copyfiles
  127.     (source "catalogs/Project.info")
  128.     (dest #catdrawer)
  129.   )
  130.   (copyfiles
  131.     (source "catalogs/deutsch/LHArchie.catalog")
  132.     (dest #deutsch)
  133.   )
  134.   (copyfiles
  135.     (source "catalogs/français/LHArchie.catalog")
  136.     (dest #français)
  137.   )
  138.   (copyfiles
  139.     (source "catalogs/español/LHArchie.catalog")
  140.     (dest #español)
  141.   )
  142.  
  143.   (complete 90)
  144.  
  145.   (working "\n\nAnordnen der Piktogramme...")
  146.  
  147.   (run (cat "IconPos \"" #defdestdrawericon "\" FREEX FREEY DXPOS 50 DYPOS 50 DWIDTH 251 DHEIGHT 114"))
  148.   (run (cat "IconPos \"" #progicon "\" 77 5"))
  149.   (run (cat "IconPos \"" #helpicon "\" 145 43"))
  150.   (run (cat "IconPos \"" #readmeicon "\" 27 47"))
  151.  
  152.   (complete 100)
  153.   (exit "Die Anleitung zum Programm finden sie in der Datei "
  154.         "LHArchie.guide.")
  155. ))
  156.  
  157. ;uninstall
  158. (set @abort-button "Deinstallation abbrechen")
  159. (if (= #choosemode 0)
  160.  (
  161.   (message "\n\n\nBitte beachten Sie: Für eine vollständige Deinstallation "
  162.            "ist es erforderlich, "
  163.            "daß sich alle zu LHArchie gehörenden Dateien in der "
  164.            "Programmschublade befinden !"
  165.   )
  166.   (set #falsedir TRUE)
  167.   (while (= #falsedir TRUE)
  168.    (
  169.     (set #archiedir
  170.      (askdir
  171.       (prompt "Bitte wählen Sie das Verzeichnis, in dem LHArchie "
  172.               "installiert ist."
  173.       )
  174.       (help @askdir-help)
  175.       (default "SYS:Tools/LHArchie")
  176.      )
  177.     )
  178.     (set #program (tackon #archiedir "LHArchie"))
  179.     (if (<> (exists #program) TRUE)
  180.      ((message "\nIm ausgewählten Verzeichnis konnte LHArchie nicht gefunden werden. "
  181.                "Bitte wählen Sie das Verzeichnis, in dem sich das Programm selbst "
  182.                "befindet, nicht das Mutterverzeichnis der Programmschublade. "
  183.                "Wenn Sie die Deinstallation abbrechen wollen, klicken Sie auf "
  184.                "den Knopf `Installation abbrechen`.")
  185.     ))
  186.     (if (= (exists #program) TRUE)
  187.      ((set #falsedir FALSE)
  188.     ))
  189.   ))
  190.   (set #really
  191.    (askbool
  192.     (prompt (cat "\n\nWollen Sie LHArchie wirklich von Ihrem Amiga deinstallieren ?\n\n"
  193.             "Vorsicht: gelöschte Dateien sind unwiederbringlich verloren !")
  194.     )
  195.     (default 0)
  196.     (choices "Deinstallieren" "Deinstallation abbrechen")
  197.     (help "Wenn sie `Deinstallieren` wählen, werden alle Dateien im "
  198.           "ausgewählten Verzeichnis gelöscht."
  199.     )
  200.    )
  201.   )
  202.   (if (= #really 1)
  203.    (
  204.     (working "Deinstallation läuft...\n\n\n\nLöschen der LHArchie-Dateien")
  205.     (set #drawericon (cat #archiedir ".info"))
  206.     (set #programicon (cat #program ".info"))
  207.     (set #shapesfile (tackon #archiedir "LHArchie.s"))
  208.     (set #helpfile (tackon #archiedir "LHArchie.guide"))
  209.     (set #helpfileicon (cat #helpfile ".info"))
  210.     (set #catdrawer (tackon #archiedir "catalogs"))
  211.     (set #readmefile (tackon #archiedir "LHArchie.readme"))
  212.     (set #readmefileicon (cat #readmefile ".info"))
  213.     (set #germancatalog (tackon (tackon #catdrawer "deutsch") "LHArchie.catalog"))
  214.     (set #prefsfile "ENVARC:ArchiePrefs")
  215.     (set #envprefsfile "ENV:ArchiePrefs")
  216.     (if (exists #germancatalog)
  217.      ((run (cat "delete \"" #catdrawer "\" ALL QUIET"))
  218.     ))
  219.     (if (exists #program)
  220.      ((delete #program)
  221.       (delete #programicon)
  222.       (delete #shapesfile)
  223.     ))
  224.     (if (exists #helpfile)
  225.      ((delete #helpfile)
  226.       (delete #helpfileicon)
  227.     ))
  228.     (if (exists #readmefile)
  229.      ((delete #readmefile)
  230.       (delete #readmefileicon)
  231.     ))
  232.     (if (exists #drawericon)
  233.      ((delete #drawericon)
  234.       (run (cat "delete \"" #archiedir "\" QUIET"))
  235.     ))
  236.     (if (exists #prefsfile)
  237.      ((delete #prefsfile)
  238.     ))
  239.     (if (exists #envprefsfile)
  240.      ((delete #envprefsfile)
  241.     ))
  242.     (set @default-dest "")
  243.     (complete 100)
  244.     (exit "LHArchie und alle zugehörigen Dateien wurden aus "
  245.           "der Schublade " #archiedir " entfernt."
  246.     )
  247.   ))
  248.   (if (= #really 0)
  249.    ((exit (quiet))
  250.   ))
  251.  )
  252. )
  253.